

Key Up 		Gosub MoveUp

Stop

' --------------------

'Label MoveUp_OLD
'	Wait Seconds 0.01
'	V1 = 0
'	Label Counter4
'		Slot(3) = Slot(3) + 1
'		V1 = v1 + 1
'		Wait Seconds 0.01
'		If V1 < 25 Or Slot(10) > 500
'			Goto Counter4
'		Else
'			Return
'		EndIf
'	Return

Label MoveUp
	Wait Seconds 0.01
	V1 = 0
	Label Counter4
		Slot(3) = Slot(3) + 1
		V1 = v1 + 1
		Wait Seconds 0.01
		If V1 > 25 Or Slot(10) > 500
			Return
		EndIf
	Goto Counter4
	
'EXEC Slot(3) = 0 : Slot(4) = 0
